home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
HiSoftBasicD2.adf
/
first.bas
< prev
next >
Wrap
BASIC Source File
|
1989-05-17
|
185b
|
10 lines
REM Your first HiSoft BASIC program
REM as described on page 9 of the manual.
t=TIMER
DO WHILE TIMER<t+20
x=MOUSE(1) : y=MOUSE(2)
IF MOUSE(0) THEN LINE (x,y)-(x+30,y+30),,bf
LOOP